home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Mag HDD Backup
/
Amiga Mag HDD Backup.zip
/
Amiga Mag HDD Backup
/
Alexander.img.bin
/
Alexander.img
/
portable
/
Don't destroy Archive.sit
/
1111MAIN ARCHIVE
/
BYRDB.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-08-10
|
412b
|
19 lines
10 OPEN "C:\byrd\ACSUBIN" FOR INPUT AS #1
20 OPEN "C:\byrd\ACSUB3RD" FOR OUTPUT AS #2
21 R=0
25 PRINT #2,CHR$(34);
30 A$=INPUT$ (1,1)
32 IF EOF(1) THEN END
35 IF A$ = CHR$(34) GOTO 30
40 IF A$ = CHR$(9) THEN GOTO 150
50 IF A$ = CHR$(13) THEN GOTO 200
100 PRINT #2,A$;
110 GOTO 30
150 PRINT #2,CHR$(34);CHR$(44);CHR$(34);
160 GOTO 30
200 PRINT #2,CHR$(34);A$;CHR$(10);CHR$(34);
205 R=R+1
210 PRINT R
250 GOTO 30